home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Games World / SharewareGames / Xconq 7.2.2 / lib / mars.g < prev    next >
Text File  |  1998-05-22  |  4KB  |  189 lines
  1. (game-module "mars"
  2.   (title "Mars")
  3.   (blurb "Colonize Mars")
  4.   (variants
  5.     (see-all false)
  6.     )
  7.   )
  8.  
  9. (terrain-type plani (image-name "orange") (char "+"))
  10. (terrain-type highlands (image-name "brown") (char "^"))
  11. (terrain-type canyon (image-name "tan"))
  12. (terrain-type co2-ice (image-name "white"))
  13. (terrain-type water-ice (image-name "light-blue"))
  14.  
  15. (terrain-type wall (subtype border))
  16.  
  17. (define cell-t* (plani highlands))
  18.  
  19. (unit-type rover (image-name "hovercraft") (char "c")
  20.   (help "slow, long-range"))
  21. (unit-type boulder-car (image-name "hovercraft") (char "b")
  22.   (help "fast, small, shorter-range, hard for satellites to see"))
  23.  
  24. (define ground-types (rover boulder-car))
  25.  
  26. (unit-type spy-satellite (image-name "spysat")
  27.   (help "hovers overhead, observes all below"))
  28.  
  29. (define air-types (spy-satellite))
  30.  
  31. (unit-type base (image-name "village")
  32.   )
  33. (unit-type underground-city (image-name "village")
  34.   )
  35. (unit-type domed-city
  36.   (help "large but vulnerable"))
  37. (unit-type underice-city (image-name "village")
  38.   (help "nearly invisible, can only be placed under water ice"))
  39.  
  40. (define city-types (underground-city domed-city underice-city))
  41.  
  42. (define place-types (base underground-city domed-city underice-city))
  43.  
  44. (material-type air)
  45. (material-type water)
  46. (material-type food)
  47.  
  48. ;;; Static relationships.
  49.  
  50. (table vanishes-on
  51.   (underice-city t* true)
  52.   (underice-city water-ice true)
  53.   )
  54.  
  55. (add place-types capacity 32)
  56.  
  57. (table unit-size-as-occupant
  58.   ;; Disable occupancy by default.
  59.   (u* u* 100)
  60.   (ground-types place-types 1)
  61.   (air-types place-types 1)
  62.   )
  63.  
  64. (add t* capacity 16)
  65.  
  66. (table unit-size-in-terrain
  67.   (u* t* 1)
  68.   (place-types t* 8)
  69.   )
  70.  
  71. ;;; Vision.
  72.  
  73. ;; The surface of Mars is well-known.
  74.  
  75. (set terrain-seen true)
  76.  
  77. ;;; Actions.
  78.  
  79. (add ground-types acp-per-turn 8)
  80.  
  81. (add air-types acp-per-turn 4)
  82.  
  83. (add place-types acp-per-turn 1)
  84.  
  85. ;;; Movement.
  86.  
  87. (add place-types speed 0)
  88.  
  89. ;;; Construction.
  90.  
  91. (add u* cp (4 4 10 4 12 24 48))
  92.  
  93. (table acp-to-create
  94.   (city-types ground-types 1)
  95.   (city-types air-types 1)
  96.   (base city-types 1)
  97.   (base base 0)
  98.   )
  99.  
  100. (table cp-on-creation
  101.   (city-types ground-types 1)
  102.   (city-types air-types 1)
  103.   (base city-types 1)
  104.   )
  105.  
  106. (table acp-to-build
  107.   (city-types ground-types 1)
  108.   (city-types air-types 1)
  109.   (base city-types 1)
  110.   (base base 0)
  111.   )
  112.  
  113. (table cp-per-build
  114.   (city-types ground-types 1)
  115.   (city-types air-types 1)
  116.   (base city-types 1)
  117.   )
  118.  
  119. ;;; Combat.
  120.  
  121. (add u* hp-max (1 1 1 10 20 20 20))
  122.  
  123. (table acp-to-attack
  124.   (u* u* 1)
  125.   (spy-satellite u* 0)
  126.   )
  127.  
  128. (table hit-chance
  129.   (u* u* 50)
  130.   (spy-satellite u* 0)
  131.   )
  132.  
  133. (table damage
  134.   (u* u* 1)
  135.   (spy-satellite u* 0)
  136.   )
  137.  
  138. ;;; Random game setup.
  139.  
  140. ;;; Some defns for the fractal percentile generator.
  141.  
  142. (set alt-blob-density 10000)
  143. (set alt-blob-height 500)
  144. (set alt-blob-size 200)
  145. (set alt-smoothing 4)
  146. (set wet-blob-density 2000)
  147. (set wet-blob-size 100)
  148.  
  149. (add cell-t* alt-percentile-min (  0  70))
  150. (add cell-t* alt-percentile-max ( 69 100))
  151. (add cell-t* wet-percentile-min (  0   0))
  152. (add cell-t* wet-percentile-max (100 100))
  153.  
  154. (add u* start-with 1)
  155.  
  156. (area 60 30)
  157.  
  158. (world 400)
  159.  
  160. (scorekeeper (do last-side-wins))
  161.  
  162. (game-module (notes (
  163.   "This game was inspired by Kim Stanley Robinson's `Red Mars',"
  164.   "an excellent story of the near-future colonization of Mars."
  165.   ""
  166.   "The general idea of the game is to build up a colony and perhaps"
  167.   "eventually contend for control of Mars, if players can't work out"
  168.   "agreements."
  169.   )))
  170.  
  171. (game-module (design-notes (
  172.   "This game is far from complete."
  173.   ""
  174.   "Mars is 21240km in diameter, elevations range over 27km. To show"
  175.   "canyons and such, would need a very large map."
  176.   "10m intervals for elevation would be reasonable."
  177.   "Scenarios could include solitaire game to establish a viable settlement,"
  178.   "and a race for Mars that is competitive."
  179.   ""
  180.   "(should be able to mine for water(ice) and transport to cities)"
  181.   )))
  182.  
  183. (add spy-satellite notes (
  184.   "Satellites are spy satellites that can see much on the ground,"
  185.   "but require so much observing and processing time that they can"
  186.   "only focus on small areas at a time.  So the position of a satellite"
  187.   "designates its focus area rather than its actual physical position."
  188.   ))
  189.